unit DicBooks;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  AbstDictionary, ActnList, Db, ExtCtrls, Grids, DBGrids, Buttons;

type
  TfmDicBooks = class(TfmAbstDictionary)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmDicBooks: TfmDicBooks;

implementation
uses ModifyBook, LbrCnst;
{$R *.DFM}

procedure TfmDicBooks.FormCreate(Sender: TObject);
begin
  inherited;
  MandatoryField:='ID';
  UniqueKeys:=MandatoryField;
//  RegCode:=RI_AIRPORT;
  ModifyClass:=TfmModifyBook;
//  PrintClass:=TfDic003;
  setTableID(dtBooks);
end;

procedure TfmDicBooks.FormDestroy(Sender: TObject);
begin
  inherited;
  if FormStyle = fsMDIChild then
    fmDicBooks:=nil;
end;

end.
